home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / space collaps (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  234b  |  6 lines
  1. 80 si=54272:forl=sitosi+23:pokel,0:next:pokesi+24,15:pokesi+5,8:pokesi+6,255
  2. 90 pokesi+4,23
  3. 100 s1=10:forz=1to35:s2=25:pokesi+1,s1:fory=1to30:pokesi+15,s2:s2=s2+2:nexty
  4. 110 s1=s1+4:nextz:s1=47:forz=40to1step-1:s2=38:pokesi+1,s1:fory=1to20
  5. 120 pokesi+15,s2:s2=s2+1:nexty:s1=s1-1:next:goto100
  6.